Gen AI

THIS IS A MOCKUP VERSION PLEASE DO NOT CITE

Generative AI Skills measure competencies with AI tools like ChatGPT: knowing how to verify AI-generated information, writing effective prompts, detecting AI-generated content, and understanding GenAI’s capabilities and limitations.

GenAI Knowledge

The following statements are about the internet. Please indicate if the sentence is true or untrue, according to you. If you don't know, please choose 'I don't know'. You don't have to guess. If you don't understand the question, please choose 'I don't understand the question.' Nearly everyone will not know or understand questions. This is normal and something that we want to know.

GenAI Performance

ADD TEXT BEFORE TABSET

--- title: "{{< iconify ph magic-wand-fill >}} Gen AI" format: html --- ```{r} #| include: false library(dashboardr) ``` **THIS IS A MOCKUP VERSION PLEASE DO NOT CITE** **Generative AI Skills** measure competencies with AI tools like ChatGPT: knowing how to verify AI-generated information, writing effective prompts, detecting AI-generated content, and understanding GenAI's capabilities and limitations. ```{r setup} #| echo: false #| warning: false #| message: false #| error: false #| results: 'hide' # Load required libraries library(dashboardr) library(dplyr) library(highcharter) # Global chunk options knitr::opts_chunk$set( echo = FALSE, warning = FALSE, message = FALSE, error = FALSE, fig.width = 12, fig.height = 8, dpi = 300 ) # Load data from dataset_4014obs.rds data <- readRDS('dataset_4014obs.rds') # Data summary cat('Dataset loaded:', nrow(data), 'rows,', ncol(data), 'columns\n') # Create filtered datasets # Each filter is applied once and reused across visualizations data_filtered_984a0efe <- data %>% dplyr::filter(wave == 1) data_filtered_4af682fd <- data %>% dplyr::filter(wave == 2) ``` ## {{< iconify ph lightning-fill >}} GenAI Skills ADD TEXT BEFORE TABSET ::: {.panel-tabset} ### {{< iconify ph number-circle-one-fill >}} Wave 1 ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ```{r genai-wave1-overall-3} # GenAI Skills result <- create_stackedbars( data = data_filtered_984a0efe %>% tidyr::drop_na(SGAI1, SGAI2, SGAI3), title = "GenAI Skills", questions = c("SGAI1", "SGAI2", "SGAI3"), question_labels = c("I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.", "I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.", "I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person"), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_label = NULL, weight_var = "weging_GAMO" ) result ``` ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r genai-wave1-age-item1-3} # I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SGAI1), title = "I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SGAI1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r genai-wave1-age-item2-3} # I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SGAI2), title = "I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SGAI2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r genai-wave1-age-item3-3} # I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SGAI3), title = "I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SGAI3" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r genai-wave1-gender-item1-3} # I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SGAI1), title = "I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SGAI1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r genai-wave1-gender-item2-3} # I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SGAI2), title = "I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SGAI2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r genai-wave1-gender-item3-3} # I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SGAI3), title = "I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SGAI3" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r genai-wave1-edu-item1-3} # I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SGAI1), title = "I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SGAI1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r genai-wave1-edu-item2-3} # I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SGAI2), title = "I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SGAI2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r genai-wave1-edu-item3-3} # I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SGAI3), title = "I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SGAI3" ) result ``` ::: ::: ### {{< iconify ph number-circle-two-fill >}} Wave 2 ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ```{r genai-wave2-overall-3} # GenAI Skills result <- create_stackedbars( data = data_filtered_4af682fd %>% tidyr::drop_na(SGAI1, SGAI2, SGAI3), title = "GenAI Skills", questions = c("SGAI1", "SGAI2", "SGAI3"), question_labels = c("I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.", "I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.", "I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person"), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_label = NULL, weight_var = "weging_GAMO" ) result ``` ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r genai-wave2-age-item1-3} # I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SGAI1), title = "I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SGAI1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r genai-wave2-age-item2-3} # I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SGAI2), title = "I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SGAI2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r genai-wave2-age-item3-3} # I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SGAI3), title = "I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SGAI3" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r genai-wave2-gender-item1-3} # I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SGAI1), title = "I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SGAI1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r genai-wave2-gender-item2-3} # I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SGAI2), title = "I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SGAI2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r genai-wave2-gender-item3-3} # I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SGAI3), title = "I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SGAI3" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r genai-wave2-edu-item1-3} # I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SGAI1), title = "I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SGAI1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r genai-wave2-edu-item2-3} # I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SGAI2), title = "I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SGAI2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r genai-wave2-edu-item3-3} # I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SGAI3), title = "I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SGAI3" ) result ``` ::: ::: ### {{< iconify ph chart-line-fill >}} Over Time ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r genai-overtime-overall-item1-3} # I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information. result <- create_timeline( data = data, title = "I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), response_filter_label = "Percentage who answered (Completely) True (4-5)", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, response_var = "SGAI1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r genai-overtime-overall-item2-3} # I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result. result <- create_timeline( data = data, title = "I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), response_filter_label = "Percentage who answered (Completely) True (4-5)", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, response_var = "SGAI2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r genai-overtime-overall-item3-3} # I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person result <- create_timeline( data = data, title = "I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), response_filter_label = "Percentage who answered (Completely) True (4-5)", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, response_var = "SGAI3" ) result ``` ::: ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r genai-overtime-age-item1-3} # I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information. result <- create_timeline( data = data, title = "I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SGAI1", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r genai-overtime-age-item2-3} # I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result. result <- create_timeline( data = data, title = "I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SGAI2", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r genai-overtime-age-item3-3} # I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person result <- create_timeline( data = data, title = "I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SGAI3", group_var = "AgeGroup" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r genai-overtime-gender-item1-3} # I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information. result <- create_timeline( data = data, title = "I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SGAI1", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r genai-overtime-gender-item2-3} # I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result. result <- create_timeline( data = data, title = "I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SGAI2", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r genai-overtime-gender-item3-3} # I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person result <- create_timeline( data = data, title = "I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SGAI3", group_var = "geslacht" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r genai-overtime-edu-item1-3} # I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information. result <- create_timeline( data = data, title = "I usually know when the content created for me by GenAI, such as ChatGPT, contains correct information.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SGAI1", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r genai-overtime-edu-item2-3} # I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result. result <- create_timeline( data = data, title = "I know which questions (or 'prompts') I should ask GenAI, such as ChatGPT, to receive a useful result.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SGAI2", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r genai-overtime-edu-item3-3} # I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person result <- create_timeline( data = data, title = "I know how to check whether a text or picture is created by GenAI, such as ChatGPT, instead of a person", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SGAI3", group_var = "Education" ) result ``` ::: ::: ::: ## {{< iconify ph book-open-fill >}} GenAI Knowledge **Generative AI Skills** measure competencies with AI tools like ChatGPT: knowing how to verify AI-generated information, writing effective prompts, detecting AI-generated content, and understanding GenAI's capabilities and limitations. ```{r, echo=FALSE, message=FALSE, warning=FALSE} create_blockquote("The following statements are about the internet. Please indicate if the sentence is true or untrue, according to you. If you don't know, please choose 'I don't know'. You don't have to guess. If you don't understand the question, please choose 'I don't understand the question.' Nearly everyone will not know or understand questions. This is normal and something that we want to know.", preset = "question") ``` ::: {.panel-tabset} ### {{< iconify ph number-circle-one-fill >}} Wave 1 ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ```{r kgai-wave1-overall-2} # result <- create_stackedbars( data = data_filtered_984a0efe %>% tidyr::drop_na(KGAI1RC, KGAI2RC, KGAI3RC, KGAI4RC, KGAI5RC), title = "", questions = c("KGAI1RC", "KGAI2RC", "KGAI3RC", "KGAI4RC", "KGAI5RC"), question_labels = c("Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.", "The usage of GenAI, such as ChatGPT, has almost no impact on the environment.", "Someone else can also get access to the information you give to GenAI, such as ChatGPT.", "People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').", "GenAI, such as ChatGPT, can produce different results when asked the same question multiple times."), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_label = NULL, weight_var = "weging_GAMO" ) result ``` ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r kgai-wave1-age-item1-2} # Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, KGAI1RC), title = "Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KGAI1RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r kgai-wave1-age-item2-2} # The usage of GenAI, such as ChatGPT, has almost no impact on the environment. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, KGAI2RC), title = "The usage of GenAI, such as ChatGPT, has almost no impact on the environment.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KGAI2RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r kgai-wave1-age-item3-2} # Someone else can also get access to the information you give to GenAI, such as ChatGPT. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, KGAI3RC), title = "Someone else can also get access to the information you give to GenAI, such as ChatGPT.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KGAI3RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r kgai-wave1-age-item4-2} # People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes'). result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, KGAI4RC), title = "People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KGAI4RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r kgai-wave1-age-item5-2} # GenAI, such as ChatGPT, can produce different results when asked the same question multiple times. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, KGAI5RC), title = "GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KGAI5RC" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r kgai-wave1-gender-item1-2} # Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, KGAI1RC), title = "Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KGAI1RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r kgai-wave1-gender-item2-2} # The usage of GenAI, such as ChatGPT, has almost no impact on the environment. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, KGAI2RC), title = "The usage of GenAI, such as ChatGPT, has almost no impact on the environment.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KGAI2RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r kgai-wave1-gender-item3-2} # Someone else can also get access to the information you give to GenAI, such as ChatGPT. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, KGAI3RC), title = "Someone else can also get access to the information you give to GenAI, such as ChatGPT.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KGAI3RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r kgai-wave1-gender-item4-2} # People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes'). result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, KGAI4RC), title = "People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KGAI4RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r kgai-wave1-gender-item5-2} # GenAI, such as ChatGPT, can produce different results when asked the same question multiple times. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, KGAI5RC), title = "GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KGAI5RC" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r kgai-wave1-edu-item1-2} # Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, KGAI1RC), title = "Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KGAI1RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r kgai-wave1-edu-item2-2} # The usage of GenAI, such as ChatGPT, has almost no impact on the environment. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, KGAI2RC), title = "The usage of GenAI, such as ChatGPT, has almost no impact on the environment.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KGAI2RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r kgai-wave1-edu-item3-2} # Someone else can also get access to the information you give to GenAI, such as ChatGPT. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, KGAI3RC), title = "Someone else can also get access to the information you give to GenAI, such as ChatGPT.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KGAI3RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r kgai-wave1-edu-item4-2} # People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes'). result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, KGAI4RC), title = "People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KGAI4RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r kgai-wave1-edu-item5-2} # GenAI, such as ChatGPT, can produce different results when asked the same question multiple times. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, KGAI5RC), title = "GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KGAI5RC" ) result ``` ::: ::: ### {{< iconify ph number-circle-two-fill >}} Wave 2 ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ```{r kgai-wave2-overall-2} # result <- create_stackedbars( data = data_filtered_4af682fd %>% tidyr::drop_na(KGAI1RC, KGAI2RC, KGAI3RC, KGAI4RC, KGAI5RC), title = "", questions = c("KGAI1RC", "KGAI2RC", "KGAI3RC", "KGAI4RC", "KGAI5RC"), question_labels = c("Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.", "The usage of GenAI, such as ChatGPT, has almost no impact on the environment.", "Someone else can also get access to the information you give to GenAI, such as ChatGPT.", "People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').", "GenAI, such as ChatGPT, can produce different results when asked the same question multiple times."), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_label = NULL, weight_var = "weging_GAMO" ) result ``` ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r kgai-wave2-age-item1-2} # Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, KGAI1RC), title = "Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KGAI1RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r kgai-wave2-age-item2-2} # The usage of GenAI, such as ChatGPT, has almost no impact on the environment. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, KGAI2RC), title = "The usage of GenAI, such as ChatGPT, has almost no impact on the environment.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KGAI2RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r kgai-wave2-age-item3-2} # Someone else can also get access to the information you give to GenAI, such as ChatGPT. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, KGAI3RC), title = "Someone else can also get access to the information you give to GenAI, such as ChatGPT.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KGAI3RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r kgai-wave2-age-item4-2} # People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes'). result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, KGAI4RC), title = "People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KGAI4RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r kgai-wave2-age-item5-2} # GenAI, such as ChatGPT, can produce different results when asked the same question multiple times. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, KGAI5RC), title = "GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KGAI5RC" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r kgai-wave2-gender-item1-2} # Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, KGAI1RC), title = "Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KGAI1RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r kgai-wave2-gender-item2-2} # The usage of GenAI, such as ChatGPT, has almost no impact on the environment. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, KGAI2RC), title = "The usage of GenAI, such as ChatGPT, has almost no impact on the environment.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KGAI2RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r kgai-wave2-gender-item3-2} # Someone else can also get access to the information you give to GenAI, such as ChatGPT. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, KGAI3RC), title = "Someone else can also get access to the information you give to GenAI, such as ChatGPT.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KGAI3RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r kgai-wave2-gender-item4-2} # People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes'). result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, KGAI4RC), title = "People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KGAI4RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r kgai-wave2-gender-item5-2} # GenAI, such as ChatGPT, can produce different results when asked the same question multiple times. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, KGAI5RC), title = "GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KGAI5RC" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r kgai-wave2-edu-item1-2} # Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, KGAI1RC), title = "Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KGAI1RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r kgai-wave2-edu-item2-2} # The usage of GenAI, such as ChatGPT, has almost no impact on the environment. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, KGAI2RC), title = "The usage of GenAI, such as ChatGPT, has almost no impact on the environment.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KGAI2RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r kgai-wave2-edu-item3-2} # Someone else can also get access to the information you give to GenAI, such as ChatGPT. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, KGAI3RC), title = "Someone else can also get access to the information you give to GenAI, such as ChatGPT.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KGAI3RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r kgai-wave2-edu-item4-2} # People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes'). result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, KGAI4RC), title = "People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KGAI4RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r kgai-wave2-edu-item5-2} # GenAI, such as ChatGPT, can produce different results when asked the same question multiple times. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, KGAI5RC), title = "GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KGAI5RC" ) result ``` ::: ::: ### {{< iconify ph chart-line-fill >}} Over Time ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r kgai-overtime-overall-item1-2} # Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable. result <- create_timeline( data = data, title = "Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "KGAI1RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r kgai-overtime-overall-item2-2} # The usage of GenAI, such as ChatGPT, has almost no impact on the environment. result <- create_timeline( data = data, title = "The usage of GenAI, such as ChatGPT, has almost no impact on the environment.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "KGAI2RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r kgai-overtime-overall-item3-2} # Someone else can also get access to the information you give to GenAI, such as ChatGPT. result <- create_timeline( data = data, title = "Someone else can also get access to the information you give to GenAI, such as ChatGPT.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "KGAI3RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r kgai-overtime-overall-item4-2} # People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes'). result <- create_timeline( data = data, title = "People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "KGAI4RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r kgai-overtime-overall-item5-2} # GenAI, such as ChatGPT, can produce different results when asked the same question multiple times. result <- create_timeline( data = data, title = "GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "KGAI5RC" ) result ``` ::: ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r kgai-overtime-age-item1-2} # Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable. result <- create_timeline( data = data, title = "Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI1RC", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r kgai-overtime-age-item2-2} # The usage of GenAI, such as ChatGPT, has almost no impact on the environment. result <- create_timeline( data = data, title = "The usage of GenAI, such as ChatGPT, has almost no impact on the environment.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI2RC", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r kgai-overtime-age-item3-2} # Someone else can also get access to the information you give to GenAI, such as ChatGPT. result <- create_timeline( data = data, title = "Someone else can also get access to the information you give to GenAI, such as ChatGPT.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI3RC", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r kgai-overtime-age-item4-2} # People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes'). result <- create_timeline( data = data, title = "People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI4RC", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r kgai-overtime-age-item5-2} # GenAI, such as ChatGPT, can produce different results when asked the same question multiple times. result <- create_timeline( data = data, title = "GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI5RC", group_var = "AgeGroup" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r kgai-overtime-gender-item1-2} # Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable. result <- create_timeline( data = data, title = "Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI1RC", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r kgai-overtime-gender-item2-2} # The usage of GenAI, such as ChatGPT, has almost no impact on the environment. result <- create_timeline( data = data, title = "The usage of GenAI, such as ChatGPT, has almost no impact on the environment.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI2RC", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r kgai-overtime-gender-item3-2} # Someone else can also get access to the information you give to GenAI, such as ChatGPT. result <- create_timeline( data = data, title = "Someone else can also get access to the information you give to GenAI, such as ChatGPT.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI3RC", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r kgai-overtime-gender-item4-2} # People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes'). result <- create_timeline( data = data, title = "People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI4RC", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r kgai-overtime-gender-item5-2} # GenAI, such as ChatGPT, can produce different results when asked the same question multiple times. result <- create_timeline( data = data, title = "GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI5RC", group_var = "geslacht" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r kgai-overtime-edu-item1-2} # Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable. result <- create_timeline( data = data, title = "Because GenAI, such as ChatGPT, searches through many websites on the internet, the information it gives is reliable.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI1RC", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r kgai-overtime-edu-item2-2} # The usage of GenAI, such as ChatGPT, has almost no impact on the environment. result <- create_timeline( data = data, title = "The usage of GenAI, such as ChatGPT, has almost no impact on the environment.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI2RC", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r kgai-overtime-edu-item3-2} # Someone else can also get access to the information you give to GenAI, such as ChatGPT. result <- create_timeline( data = data, title = "Someone else can also get access to the information you give to GenAI, such as ChatGPT.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI3RC", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r kgai-overtime-edu-item4-2} # People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes'). result <- create_timeline( data = data, title = "People can use genAI to create images, videos or audio-fragments of events or people who do not really exist or that have not actually taken place (for example 'deepfakes').", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI4RC", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r kgai-overtime-edu-item5-2} # GenAI, such as ChatGPT, can produce different results when asked the same question multiple times. result <- create_timeline( data = data, title = "GenAI, such as ChatGPT, can produce different results when asked the same question multiple times.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KGAI5RC", group_var = "Education" ) result ``` ::: ::: ::: ## {{< iconify ph clipboard-text >}} GenAI Performance ADD TEXT BEFORE TABSET ::: {.panel-tabset} ### {{< iconify ph number-circle-one-fill >}} Wave 1 ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ```{r perf-genai-wave1-overall-2} # Spot non-AI image result <- create_stackedbars( data = data_filtered_984a0efe %>% tidyr::drop_na(PAIS1R), title = "Spot non-AI image", questions = "PAIS1R", question_labels = "Spot non-AI image", stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), stack_label = NULL, weight_var = "weging_GAMO" ) result ``` ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-genai-wave1-age-item1-2} # Spot non-AI image result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PAIS1R), title = "Spot non-AI image", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PAIS1R" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-genai-wave1-gender-item1-2} # Spot non-AI image result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PAIS1R), title = "Spot non-AI image", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PAIS1R" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-genai-wave1-edu-item1-2} # Spot non-AI image result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PAIS1R), title = "Spot non-AI image", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PAIS1R" ) result ``` ::: ::: ### {{< iconify ph number-circle-two-fill >}} Wave 2 ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ```{r perf-genai-wave2-overall-2} # Spot non-AI image result <- create_stackedbars( data = data_filtered_4af682fd %>% tidyr::drop_na(PAIS1R), title = "Spot non-AI image", questions = "PAIS1R", question_labels = "Spot non-AI image", stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), stack_label = NULL, weight_var = "weging_GAMO" ) result ``` ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-genai-wave2-age-item1-2} # Spot non-AI image result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PAIS1R), title = "Spot non-AI image", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PAIS1R" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-genai-wave2-gender-item1-2} # Spot non-AI image result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PAIS1R), title = "Spot non-AI image", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PAIS1R" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-genai-wave2-edu-item1-2} # Spot non-AI image result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PAIS1R), title = "Spot non-AI image", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Incorrect", "Correct"), stack_map_values = list("1" = "Correct", "0" = "Incorrect"), stack_order = c("Incorrect", "Correct"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PAIS1R" ) result ``` ::: ::: ### {{< iconify ph chart-line-fill >}} Over Time ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-genai-overtime-overall-item1-2} # Spot non-AI image result <- create_timeline( data = data, title = "Spot non-AI image", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PAIS1R" ) result ``` ::: ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-genai-overtime-age-item1-2} # Spot non-AI image result <- create_timeline( data = data, title = "Spot non-AI image", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PAIS1R", group_var = "AgeGroup" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-genai-overtime-gender-item1-2} # Spot non-AI image result <- create_timeline( data = data, title = "Spot non-AI image", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PAIS1R", group_var = "geslacht" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-genai-overtime-edu-item1-2} # Spot non-AI image result <- create_timeline( data = data, title = "Spot non-AI image", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PAIS1R", group_var = "Education" ) result ``` ::: ::: :::